home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 33 / 033.d81 / laser lament (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  61 lines
  1. 0 a=a+1:ifa=1thenload"pgm.bin",8,1
  2. 1 ifa=2thenload"spr",8,1
  3. 2 poke55,255:poke56,131:clr:ba=33792:dp=ba+3:sa=ba+6:bs=ba+9:bl=ba+12:ds=ba+15:fm=ba+18:xf=ba+21:ho=ba+24:hf=ba+27:mo=ba+30:mf=ba+33:ce=ba+36:cd=ba+39:dc=ba+42:uc=ba+45:cw=ba+48:rw=ba+51:pl=ba+54:up=ba+57:dr=ba+60:ud=ba+63:bf=ba+66:sb=ba+69:br=ba+72:se=ba+75
  4. 29 fs=ba+78:so=ba+81:sd=ba+84:sp=ba+87:sr=ba+90:rs=ba+93:sx=ba+96:an=ba+99:ca=ba+102:jo=ba+105:jf=ba+108:wc=ba+111:rw=ba+114:fw=ba+117:rd=ba+120:syssa,57344,52224:sysba:sysho:sysse:poke53280,0:poke53281,0:ra=0:ifpeek(49167)<>7orpeek(49170)<>7orpeek(49173)<>4thensysbl,49152,"spr,p
  5. 53 ad[178][194](781)[170][194](782)[172]256:sd[178]54272:[158]cd,55296,1,1,"stopload":[158]dr,100,0,319,0,1,0:[158]dr,319,0,319,199:[158]dr,319,199,100,199:[158]dr,100,199,100,0:[158]dr,240,199,240,125:[158]dr,240,125,319,100:[158]dr,160,0,165,7:[158]dr,165,7,185,7:[158]dr,185,7,190,0:[158]dr,185,7,185,30
  6. 75 [158]dr,165,7,165,30:[158]dr,165,30,160,35:[158]dr,185,30,190,35:[129]t[178]319[164]190[169][171]5:[158]dr,t[171]5,22,t,22:[158]dr,t[171]5,26,t,26:[130]:[158]dr,189,22,185,22:[158]dr,189,26,185,26:[158]dr,319,23,186,23:[158]dr,319,25,186,25:[158]dr,319,24,186,24:[129]c[178]10[164]1[169][171]1:[158]dr,319,22,186,22,c,0:[158]dr,319,26,186,26,c,0:[130]
  7. 100 [129]t[178]22[164]26:[158]ud,318,t,186,t:[130]:[129]t[178]185[164]165[169][171]1:[158]dr,t,8,t,30,1,0:[130]:[129]c[178]10[164]1[169][171]1:[141]9100:[129]t[178]184[164]166[169][171]3:[158]dr,t,8,t,30,c,0:[130]:[130]:[158]ba[170]3[172]28,0,0,0,0,0,1:[158]ba[170]3[172]29,0,195,60,5:[158]ba[170]3[172]27,1,0:[129]t[178]184[164]166[169][171]1:[158]ud,t,8,t,30:[130]:[129]u[178]1[164]250:[130]:x[178]195:r[178]0:pt[178]8:[129]y[178]60[164]232[169]4:[141]9000:[130]
  8. 135 pt[178]5:y[178]232:[141]9000:[129]u[178]1[164]250:[130]:pt[178]7:[141]9000:[129]u[178]1[164]250:[130]:pt[178]6:[141]9000:[158]dr,0,99,100,199:[129]t[178]98[164]80[169][171]1:[158]dr,0,t,100,t[170]100:[158]ud,0,t,100,t[170]100:[130]:[158]dr,0,t,100,t[170]100:fr[178]195:tm[178]116:sl[178][171]3:mn[178]20:mx[178]24:[141]7000:fr[178]116:tm[178]24:sl[178][171]3:ra[178][171]3.0:mn[178]20:mx[178]24:[141]7000:[158]ba[170]81,0,0
  9. 180 [158]cd,55296,1,1,"stopload":[158]dr,319,199,270,150:[158]dr,270,150,0,150:[158]dr,319,179,270,130:[158]dr,270,130,80,130:[158]dr,80,130,0,0:x[178]333:y[178]229:[141]9000:[158]ba[170]81,1,0:fr[178]333:tm[178]289:sl[178][171]3:ra[178][171]3:mn[178]20:mx[178]24:[141]7000:fr[178]289:tm[178]24:sl[178][171]3:ra[178]0:mn[178]20:mx[178]24:[141]7000:[158]ba[170]81,0,0
  10. 230 [158]cd,55296,1,1,"stopload":[158]dr,319,150,160,150:[158]dr,160,150,109,199:[158]dr,0,75,190,75:[158]dr,190,75,100,0:x[178]320:y[178]183:[141]9000:[158]ba[170]81,1,0:fr[178]320:tm[178]175:sl[178][171]3:ra[178]0:mn[178]20:mx[178]24:[141]7000:pt[178]25:[141]9000:fr[178]175:tm[178]125:sl[178][171]3:ra[178]3:mn[178]25:mx[178]25:[141]7000:[158]ba[170]81,0,0
  11. 270 [158]cd,55296,1,1,"stopload":[158]dr,100,0,100,50:[158]dr,100,50,0,50:[158]dr,319,0,120,199:[158]dr,120,199,0,199:x[178]320:y[178]50:[141]9000:[158]ba[170]81,1,0:fr[178]319:tm[178]222:sl[178][171]3:ra[178]3:mn[178]25:mx[178]25:[141]7000:[158]ud,219,100,189,130:[141]4005:[158]dr,219,100,319,199:[158]dr,189,130,258,199:pt[178]8:[141]9000
  12. 305 [129]y[178]147[164]180[169]3:[141]9000:[130]:fr[178]222:tm[178]270:sl[178]3:ra[178]3:mn[178]4:mx[178]4:[141]7000:[158]ba[170]81,0,0:[158]cd,55296,1,1,"stopload":[158]dr,70,0,145,75:[158]dr,100,0,175,75:[158]dr,145,75,140,80:[158]dr,175,75,180,80:[158]dr,140,80,140,199:[158]dr,180,80,180,199:[158]dr,142,125,178,125:[158]dr,160,125,160,199
  13. 345 x[178]100:y[178]50:pt[178]4:[141]9000:[158]ba[170]81,1,0:fr[178]100:tm[178]170:sl[178]3:ra[178]3:mn[178]4:mx[178]4:[141]7000:pt[178]8:[141]9000:[129]y[178]120[164]158[169]3:[141]9000:x[178]x[170].75:[130]:pt[178]5:[141]9000:[129]u[178]1[164]500:[130]:[129]yy[178]125[164]199[169]4:[158]dr,142,yy,178,yy:[158]ud,160,yy,160,yy[171]4:[158]ud,142,yy,178,yy:y[178]y[170]4:[141]9000:[130]:[158]ba[170]81,0,0
  14. 385 [158]cd,55296,1,1,"stopload":[158]dr,140,0,140,125:[158]dr,140,125,0,125:[158]dr,0,150,140,150:[158]dr,140,150,140,199:[158]dr,180,0,180,199:[158]dr,160,25,160,199:[158]dr,142,25,178,25:x[178]179:y[178]59:pt[178]5:[141]9000:[158]ba[170]81,1,0:[129]yy[178]25[164]146[169]4:[158]dr,142,yy,178,yy:[158]ud,160,yy,160,yy[171]4
  15. 420 [158]ud,142,yy,178,yy:y[178]y[170]4:[141]9000:[130]:[158]dr,142,yy,178,yy:[158]ud,160,yy[171]1,160,yy[171]4:pt[178]6:[141]9000:[158]dr,180,151,319,151:[158]dr,140,125,140,150:[158]ud,180,125,180,150:[158]ud,0,125,139,125:[158]ud,0,150,139,150:[158]dr,180,125,319,125:[158]dr,180,150,319,150
  16. 435 [158]dr,180,125[170](150[171]yy),319,125[170](150[171]yy):[158]ud,0,150,139,150:pt[178]7:[141]9000:[129]u[178]1[164]300:[130]:fr[178]179:tm[178]320:sl[178]3:mn[178]15:mx[178]19:ra[178]0:y[178]184:[141]7000:[158]ba[170]81,0,0:[158]cd,55296,1,1,"stopload":[158]dr,0,170,80,170:[158]dr,80,170,100,150:[158]dr,100,150,240,150
  17. 485 [158]dr,240,150,260,130:[158]dr,260,130,319,130:[158]dr,0,130,70,130:[158]dr,70,130,90,110:[158]dr,90,110,230,110:[158]dr,230,110,250,90:[158]dr,250,90,319,90:x[178]024:y[178]203:[141]9000:[158]ba[170]81,1,0:fr[178]24:tm[178]100:sl[178]3:mn[178]15:mx[178]19:ra[178]0:y[178]203:[141]7000
  18. 515 fr[178]100:tm[178]116:sl[178]3:mn[178]15:mx[178]19:ra[178][171]3:[141]7000:fr[178]116:tm[178]255:sl[178]3:mn[178]15:mx[178]19:ra[178]00:y[178]y[171]2:[141]7000:fr[178]257:tm[178]276:sl[178]3:mn[178]15:mx[178]19:ra[178][171]3:y[178]y[170]2:[141]7000:fr[178]276:tm[178]320:sl[178]3:mn[178]15:mx[178]19:ra[178]00:[141]7000:[158]ba[170]81,0,0:[158]cd,55296,1,1,"stopload
  19. 550 sysdr,0,120,200,120:sysdr,200,120,200,0:sysdr,240,0,240,199:sysdr,0,150,207,150:sysdr,207,150,200,155:sysdr,200,155,200,199:x=24:y=183:gosub9000:sysba+81,1,0:fr=24:tm=220:y=183:ra=0:sl=3:mn=15:mx=19:gosub7000:pt=5:x=221:gosub9000:foru=1to250:next:pt=7:gosub9000:foru=1to250:next
  20. 575 syscd,55296,16,25,"?":foru=1to500:next:syscd,55296,16,25," ":c=1:foryy=199to150step-1:sysdr,208,yy,229,yy,c,0:sysud,208,yy,229,yy:c=c+1:ifc>10thenc=1
  21. 590 next:forc=1to10:sysdr,208,150,229,150:next:fr=223:tm=237:ra=0:sl=2:mn=0:mx=3:gosub7000:pt=5:y=y+1:gosub9000:c=1:foryy=150to20step-2:sysdr,208,yy,229,yy,c,0:sysud,208,yy,229,yy:c=c+1:ifc>10thenc=1
  22. 615 y=y-2:gosub9000:next:sysba+81,0,0:syscd,55296,1,1,"[144][147]":sysdr,30,199,30,40,1,0:sysdr,30,40,65,20:sysdr,65,20,319,20:sysdr,80,199,80,55:sysdr,80,55,73,50:sysdr,73,50,319,50:x=80:y=223:pt=5:gosub9000:sysba+81,1,0:c=1:foryy=190to50step-2:sysdr,54,yy,72,yy,c,0:sysud,54,yy,72,yy
  23. 655 c=c+1:ifc>10thenc=1
  24. 660 y=y-2:gosub9000:next:forc=10to1step-1:sysdr,54,50,72,50,c,0:next:y=y+3:fr=80:tm=100:sl=2:mn=0:mx=3:ra=0:gosub7000:pt=5:gosub9000:c=1:foryy=50to199step2:sysdr,54,yy,72,yy,c,0:sysud,54,yy,72,yy:c=c+1:ifyy=60thensysdr,73,50,73,50,1,0
  25. 685 ifc>10thenc=1
  26. 690 next:fr=100:tm=320:sl=3:ra=0:mn=15:mx=19:gosub7000:sysba+81,0,0:syscd,55296,1,1,"[144][147]":sysdr,0,30,230,30,1,0:sysdr,0,50,205,50:sysdr,230,30,250,35:sysdr,250,35,250,60:sysdr,225,50,230,50:sysdr,230,50,230,60:sysdr,230,60,250,60,6,0:sysdr,230,60,230,199:sysdr,250,60,250,199
  27. 730 forxx=205to225step4:sysdr,xx,50,xx+2,50,2,0:next:sysdr,215,180,210,199,2,0:sysdr,215,180,220,199:y=84:x=24:gosub9000:sysba+81,1,0:fr=24:tm=230:sl=3:mn=15:mx=19:ra=0:gosub7000:x=235:pt=5:gosub9000:foru=1to300:next:pt=7:gosub9000:foru=1to500:next:sysdr,215,180,215,50,2,0:gosub4045:sysud,215,180,215,50
  28. 760 fr=235:tm=245:sl=1:mn=8:mx=11:ra=-1:gosub7000:fr=245:tm=255:sl=1:mn=8:mx=11:ra=2:gosub7000:x=x+3:fory=95to100:pt=10:gosub9000:next:gosub4005:fory=100to110:pt=10:gosub9000:next:fr=258:tm=259:sl=.03:ra=3:mn=26:mx=27:gosub7000:sysba+81,0,0:syscd,55296,1,1,"[144][147]
  29. 805 [158]dr,170,0,170,130,6,0:[158]dr,170,130,0,130:[158]dr,0,170,170,170:[158]dr,170,170,170,199:[158]dr,200,199,200,0:x[178]205:y[178]50:[141]9000:[158]ba[170]81,1,0:fr[178]205:tm[178]206:sl[178].022:ra[178]3:mn[178]26:mx[178]27:[141]7000:fr[178]206:tm[178]24:sl[178][171]3:ra[178]0:mn[178]28:mx[178]29:[141]7000:[158]ba[170]81,0,0:[158]cd,55296,1,1,"stopload
  30. 850 sysdr,0,130,140,130,6,0:sysdr,140,130,140,110,1,0:sysdr,140,110,180,110:sysdr,180,110,180,130:sysdr,180,130,319,130,6,0:sysdr,0,170,319,170,6,0:sysdr,